module variables
    implicit none
    integer(kind=4),parameter :: NX=51, NTEND=4
    real(kind=4),parameter :: x_range(2)=(/-6.0, 6.0/), Dx=(x_range(2)-x_range(1))/(NX-1),&
        &TEND(NTEND)=(/ 1.0, 2.0, 3.0, 4.0 /)
    real(kind=4),save :: t, u1(NX), u2(NX), x(NX), b(NX), dt, CFL
    integer,save :: reccount
!$OMP THREADPRIVATE(t,u1,u2,x,b,dt,CFL,reccount)
end module variables
